home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / comm / pirch32.zip / MASSGREE.PIL < prev    next >
Text File  |  1996-07-22  |  734b  |  27 lines
  1. {----------------------------------------------------------------------------------------------------------
  2. *** Script: MASSGREET
  3. *** Date: 7/9/96
  4. ----------------------------------------------------------------------------------------------------------}
  5. $s := '';
  6. opsonly := true;
  7. k := strtoint($members);
  8. for i := 1 to k do
  9. begin
  10.     $thisnick :=  nicklist($audience,i); 
  11.     if strlen($s+$thisnick) > 255 then
  12.     begin
  13.         command('/msg ',$audience,' hi ',$s);
  14.         $s := '';
  15.     end;
  16.     if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then
  17.     begin
  18.         if strlen($s) > 0 then
  19.             $s := $s + ', ';
  20.         $s := $s + $thisnick;        
  21.     end;
  22. end;
  23. if strlen($s) > 0 then
  24. begin
  25.     command('/msg ',$audience,' hi ',$s);
  26. end;
  27.